module SMS (SMS, nuevoSMS, nroDestinoSMS, textoSMS)

where

import Tipos

data SMS = CrearSMS Numero Texto deriving (Show)

-- Funciones generales --

nuevoSMS :: Numero -> Texto -> SMS
nuevoSMS numero texto = CrearSMS numero texto

nroDestinoSMS :: SMS -> Numero
nroDestinoSMS (CrearSMS numero texto) = numero

textoSMS :: SMS -> Texto
textoSMS (CrearSMS numero texto) = texto

-- Fin funciones generales --
